home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 6-Apple⁄DEC Alliance / Solutions & Networking Guide / Macintosh Networking Guide / Macintosh Networking Guide / card_4325.txt < prev    next >
Text File  |  1990-04-17  |  6KB  |  314 lines
  1. -- card: 4325 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 14812
  5. -- name: Limit
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=209 top=265 right=293 bottom=253
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: limit
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   repeat with i = 1 to 7
  23.     put empty into cd fld i
  24.   end repeat
  25.   limitEnv
  26. end mouseUp
  27.  
  28. on limitEnv
  29.   set cursor to watch
  30.   set the lockScreen to true
  31.   push card
  32.   go cd "Mac Grid"
  33.   global env,sol,solutions,DigitalSol,IBMSol,MacSol,PCSol,TandemSol
  34.   global UNIXSol,WangSol
  35.   put empty into listing
  36.   put empty into DigitalSol
  37.   put empty into IBMSol
  38.   put empty into MacSol
  39.   put empty into PCSol
  40.   put empty into TandemSol
  41.   put empty into UNIXSol
  42.   put empty into WangSol
  43.   repeat with i = 1 to 56
  44.     get cd fld i
  45.     put it into yum
  46.     put empty into holder
  47.     repeat with x = 1 to the number of lines of yum
  48.       if item 1 of line x of it <> empty then
  49.         put line i of it & return after holder
  50.       end if
  51.     end repeat
  52.     if holder <> empty then
  53.       put the short name of cd fld i & return after listing
  54.     end if
  55.   end repeat
  56.   pop card
  57.   set lockScreen to false
  58.   repeat with j = 1 to the number of lines of listing
  59.     if first word of line j of listing is "Digital"
  60.     then
  61.     put second word of line j of listing & return after cd field "DigitalSol"
  62.   end if
  63.   if first word of line j of listing is "IBM"
  64.   then
  65.   put second word of line j of listing & return after cd field "IBMSol"
  66. end if
  67. if first word of line j of listing is "Mac"
  68. then
  69. put second word of line j of listing & return after cd field "MacSol"
  70. end if
  71. if first word of line j of listing is "PC"
  72. then
  73. put second word of line j of listing & return after cd field "PCSol"
  74. end if
  75. if first word of line j of listing is "Tandem"
  76. then
  77. put second word of line j of listing & return after cd field "TandemSol"
  78. end if
  79. if first word of line j of listing is "UNIX"
  80. then
  81. put second word of line j of listing & return after cd field "UNIXSol"
  82. end if
  83. if first word of line j of listing is "Wang"
  84. then
  85. put second word of line j of listing & return after cd field "WangSol"
  86. end if
  87. end repeat
  88. set cursor to hand
  89. end limitEnv
  90.  
  91. Digital
  92. IBM
  93. Mac
  94. PC
  95. Tandem
  96. UNIX
  97. Wang
  98. Communications
  99. Engineering/CAD
  100. Info Management
  101. Office Productivity
  102. Publishing
  103. Software Development
  104. Network Services
  105. Hardware
  106.  
  107. on mouseEnter
  108.   put "lists environments with solutions for Macintosh" into fld "Tell"
  109. end mouseEnter
  110.  
  111.  
  112. on mouseleave
  113.   put empty into fld "Tell"
  114. end mouseLeave
  115.  
  116.  
  117.  
  118.  
  119. -- part 2 (field)
  120. -- low flags: 01
  121. -- high flags: 0002
  122. -- rect: left=0 top=21 right=133 bottom=109
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 0
  126. -- font id: 3
  127. -- text size: 9
  128. -- style flags: 0
  129. -- line height: 12
  130. -- part name: DigitalSol
  131.  
  132.  
  133. -- part 3 (field)
  134. -- low flags: 01
  135. -- high flags: 0002
  136. -- rect: left=110 top=21 right=133 bottom=219
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 3
  141. -- text size: 9
  142. -- style flags: 0
  143. -- line height: 12
  144. -- part name: IBMSol
  145.  
  146.  
  147. -- part 4 (field)
  148. -- low flags: 01
  149. -- high flags: 0002
  150. -- rect: left=221 top=21 right=133 bottom=330
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 0
  154. -- font id: 3
  155. -- text size: 9
  156. -- style flags: 0
  157. -- line height: 12
  158. -- part name: MacSol
  159.  
  160.  
  161. -- part 5 (field)
  162. -- low flags: 01
  163. -- high flags: 0002
  164. -- rect: left=331 top=21 right=133 bottom=440
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 3
  169. -- text size: 9
  170. -- style flags: 0
  171. -- line height: 12
  172. -- part name: PCSol
  173.  
  174.  
  175. -- part 6 (field)
  176. -- low flags: 01
  177. -- high flags: 0002
  178. -- rect: left=0 top=134 right=246 bottom=109
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 3
  183. -- text size: 9
  184. -- style flags: 0
  185. -- line height: 12
  186. -- part name: TandemSol
  187.  
  188.  
  189. -- part 7 (field)
  190. -- low flags: 01
  191. -- high flags: 0002
  192. -- rect: left=110 top=134 right=246 bottom=219
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 0
  196. -- font id: 3
  197. -- text size: 9
  198. -- style flags: 0
  199. -- line height: 12
  200. -- part name: UNIXSol
  201.  
  202.  
  203. -- part 8 (field)
  204. -- low flags: 01
  205. -- high flags: 0002
  206. -- rect: left=221 top=134 right=246 bottom=330
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 0
  210. -- font id: 3
  211. -- text size: 9
  212. -- style flags: 0
  213. -- line height: 12
  214. -- part name: WangSol
  215.  
  216.  
  217. -- part 11 (button)
  218. -- low flags: 00
  219. -- high flags: 0001
  220. -- rect: left=100 top=257 right=287 bottom=164
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 27009 / 27009
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: Previous
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   go next card
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part contents for card part 2
  237. ----- text -----
  238. Communications
  239. Engineering/CAD
  240. Info Management
  241. Office Productivity
  242. Publishing
  243. Software Development
  244. Network Services
  245. Hardware
  246.  
  247.  
  248. -- part contents for card part 3
  249. ----- text -----
  250. Communications
  251. Info Management
  252. Office Productivity
  253. Software Development
  254. Network Services
  255. Hardware
  256.  
  257.  
  258. -- part contents for card part 4
  259. ----- text -----
  260. Communications
  261. Engineering/CAD
  262. Info Management
  263. Office Productivity
  264. Publishing
  265. Software Development
  266. Network Services
  267. Hardware
  268.  
  269.  
  270. -- part contents for card part 5
  271. ----- text -----
  272. Communications
  273. Engineering/CAD
  274. Info Management
  275. Office Productivity
  276. Publishing
  277. Software Development
  278. Network Services
  279. Hardware
  280.  
  281.  
  282. -- part contents for card part 6
  283. ----- text -----
  284. Engineering/CAD
  285. Info Management
  286. Office Productivity
  287. Publishing
  288. Software Development
  289. Network Services
  290. Hardware
  291.  
  292.  
  293. -- part contents for card part 7
  294. ----- text -----
  295. Engineering/CAD
  296. Info Management
  297. Office Productivity
  298. Publishing
  299. Software Development
  300. Network Services
  301. Hardware
  302.  
  303.  
  304. -- part contents for card part 8
  305. ----- text -----
  306. Engineering/CAD
  307. Software Development
  308. Hardware
  309.  
  310.  
  311. -- part contents for background part 9
  312. ----- text -----
  313. Lobby Button
  314. use building navigation